BAZ.LSP[TIM,LSP]1 - www.SailDart.org

perm filename BAZ.LSP[TIM,LSP]1 blob sn#702205 filedate 1983-02-28 generic text, type C, neo UTF8

COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(declare (fasload meter fas dsk (tim lsp)))
C00003 ENDMK
C⊗;
(declare (fasload meter fas dsk (tim lsp)))
(declare (setq meter:meterp t))
(meter:begin baz)

(meter-funs ((* "*")(+ "+")
		    (setq "setq's")
	     (1+ "1+'s")(store "Asets")
	     (- "-'s")(+ "+'s")(↑ "↑'s")(+$ "+$'s")(-$ "-$'s")(arraycall "Arefs"))
	    (defun baz (n)
		   (do ((n n (1- n))
			(a 0))
		       ((= n 0))
	     (setq a (+ (* n n))))))))

(meter:end)

(baz 10)
(meter:report)